Over 1,000 Windows 95 Programs/Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso/1468/dialer.frm

Text File | 1996-07-19 | 6KB | 200 lines

VERSION 4.00
Begin VB.Form Dialer
   Appearance      =   0  'Flat
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Phone Dialer"
   ClientHeight    =   3885
   ClientLeft      =   6555
   ClientTop       =   345
   ClientWidth     =   2835
   BeginProperty Font
      name            =   "MS Sans Serif"
      charset         =   0
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   Height          =   4290
   Icon            =   "Dialer.frx":0000
   Left            =   6495
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3885
   ScaleWidth      =   2835
   Top             =   0
   Width           =   2955
   Begin VB.CommandButton cmdDial
      Caption         =   "Dial"
      BeginProperty Font
         name            =   "MS Sans Serif"
         charset         =   0
         weight          =   400
         size            =   8.25
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   13
      Top             =   3300
      Width           =   2610
   End
   Begin VB.CommandButton Number
      Caption         =   " "
      Height          =   510
      Index           =   12
      Left            =   1860
      TabIndex        =   12
      Top             =   2640
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "-"
      Height          =   510
      Index           =   11
      Left            =   420
      TabIndex        =   11
      Top             =   2640
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "0"
      Height          =   510
      Index           =   0
      Left            =   1140
      TabIndex        =   10
      Top             =   2640
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "9"
      Height          =   510
      Index           =   9
      Left            =   1860
      TabIndex        =   9
      Top             =   1980
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "8"
      Height          =   510
      Index           =   8
      Left            =   1140
      TabIndex        =   8
      Top             =   1980
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "7"
      Height          =   510
      Index           =   7
      Left            =   420
      TabIndex        =   7
      Top             =   1980
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "6"
      Height          =   510
      Index           =   6
      Left            =   1860
      TabIndex        =   6
      Top             =   1320
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "5"
      Height          =   510
      Index           =   5
      Left            =   1140
      TabIndex        =   5
      Top             =   1320
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "4"
      Height          =   510
      Index           =   4
      Left            =   420
      TabIndex        =   4
      Top             =   1320
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "3"
      Height          =   510
      Index           =   3
      Left            =   1860
      TabIndex        =   3
      Top             =   660
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "2"
      Height          =   510
      Index           =   2
      Left            =   1140
      TabIndex        =   2
      Top             =   660
      Width           =   510
   End
   Begin VB.CommandButton Number
      Caption         =   "1"
      Height          =   510
      Index           =   1
      Left            =   420
      TabIndex        =   1
      Top             =   660
      Width           =   510
   End
   Begin VB.PictureBox picReadout
      Height          =   375
      Left            =   120
      ScaleHeight     =   315
      ScaleWidth      =   2520
      TabIndex        =   0
      Top             =   120
      Width           =   2580
   End
End
Attribute VB_Name = "Dialer"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit

Dim moLCD      As New CLCD
Dim msPhoneNum As String


Private Sub Form_Load()

    With moLCD
        .BackColor = vbBlue
        .ForeColor = vbYellow
        .Alignment = gnALIGN_LEFT
        Set .Container = picReadout
        .Caption = ""
    End With

End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set moLCD = Nothing
    Set Dialer = Nothing
End Sub

Private Sub Number_Click(Index As Integer)
    msPhoneNum = msPhoneNum & Number(Index).Caption
    moLCD.Caption = msPhoneNum
End Sub

Private Sub cmdDial_Click()
    MsgBox "Doesn't really dial.  This demo just shows an example of a left-justified number.", vbInformation + vbOKOnly
End Sub